Freelog 100/FreelogNo100-NovembreDecembre2010.iso/Systeme/Glarysoft Disk SpeedUp/dssetup.exe/Defrag.exe/0/RCDATA/TFRMDEFRAGNOW/TFRMDEFRAGNOW.txt

Text File | 2010-08-11 | 18KB | 685 lines

object frmDefragNow: TfrmDefragNow
  Left = 477
  Top = 237
  Align = alClient
  BorderStyle = bsNone
  Caption = 'frmDefragNow'
  ClientHeight = 371
  ClientWidth = 564
  Color = clWhite
  Constraints.MinHeight = 398
  Constraints.MinWidth = 572
  ParentFont = True
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  DesignSize = (
    564
    371)
  PixelsPerInch = 96
  TextHeight = 13
  object pgcDefragProcess: TPageControl
    Left = 0
    Top = 207
    Width = 564
    Height = 164
    HelpType = htKeyword
    ActivePage = tshGeneral
    Align = alBottom
    TabOrder = 6
    OnChange = pgcDefragProcessChange
    object tshGeneral: TTabSheet
      Caption = 'General'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      DesignSize = (
        556
        136)
      object img32InfoShow: TImage32
        Left = 0
        Top = 2
        Width = 554
        Height = 134
        Anchors = [akLeft, akRight, akBottom]
        Bitmap.ResamplerClassName = 'TNearestResampler'
        BitmapAlign = baTopLeft
        Color = clWhite
        ParentColor = False
        Scale = 1.000000000000000000
        ScaleMode = smNormal
        TabOrder = 0
        DesignSize = (
          554
          134)
        object shp1: TShape
          Left = 6
          Top = 76
          Width = 16
          Height = 16
          Brush.Color = 13539084
        end
        object labUsedSpaceT: TLabel
          Left = 27
          Top = 76
          Width = 60
          Height = 13
          Caption = 'Used Space:'
        end
        object labUsedSpace: TLabel
          Left = 90
          Top = 76
          Width = 67
          Height = 13
          Caption = 'labUsedSpace'
        end
        object shp2: TShape
          Left = 6
          Top = 97
          Width = 16
          Height = 16
          Brush.Color = 189691
        end
        object labFreeSpaceT: TLabel
          Left = 27
          Top = 98
          Width = 58
          Height = 13
          Caption = 'Free Space:'
        end
        object labFreeSpace: TLabel
          Left = 90
          Top = 98
          Width = 65
          Height = 13
          Caption = 'labFreeSpace'
        end
        object labCapacityT: TLabel
          Left = 22
          Top = 118
          Width = 46
          Height = 13
          Caption = 'Capacity:'
        end
        object labCapacity: TLabel
          Left = 75
          Top = 118
          Width = 56
          Height = 13
          Caption = 'labCapacity'
        end
        object labHard: TLabel
          Left = 2
          Top = 2
          Width = 37
          Height = 13
          Caption = 'labHard'
        end
        object glspDiscShow: TGlassPie
          Left = 18
          Top = 16
          Width = 103
          Height = 53
          BaseColor = 189691
          FanShaped = <
            item
              Color = clPurple
            end>
          TabOrder = 1
        end
        object nbStatus: TNotebook
          Left = 165
          Top = 8
          Width = 387
          Height = 120
          Anchors = [akLeft, akRight, akBottom]
          Color = clWhite
          PageIndex = 2
          ParentColor = False
          TabOrder = 0
          OnPageChanged = nbStatusPageChanged
          object TPage
            Left = 0
            Top = 0
            Caption = 'Runing'
            DesignSize = (
              387
              120)
            object labRuning: TLabel
              Left = 6
              Top = -43
              Width = 46
              Height = 13
              Anchors = [akLeft, akBottom]
              Caption = 'Analyzing'
            end
            object img32Defraging: TImage32
              Left = 0
              Top = 0
              Width = 387
              Height = 120
              Align = alClient
              Bitmap.ResamplerClassName = 'TNearestResampler'
              BitmapAlign = baTopLeft
              Scale = 1.000000000000000000
              ScaleMode = smNormal
              TabOrder = 0
              DesignSize = (
                387
                120)
              object labOverallProgress: TLabel
                Left = 6
                Top = 2
                Width = 85
                Height = 13
                Caption = 'Overall progress  '
              end
              object labTotalPercent: TLabel
                Left = 91
                Top = 2
                Width = 75
                Height = 13
                Caption = 'labTotalPercent'
              end
              object labPassed: TLabel
                Left = 335
                Top = 2
                Width = 34
                Height = 13
                Anchors = [akTop, akRight]
                Caption = 'Passed'
              end
              object labAnalyzed2: TLabel
                Left = 5
                Top = 48
                Width = 44
                Height = 13
                Caption = 'Anylazed'
              end
              object labAnalyzedFiles: TLabel
                Left = 69
                Top = 48
                Width = 79
                Height = 13
                Caption = 'labAnalyzedFiles'
              end
              object labFragmentedT: TLabel
                Left = 5
                Top = 74
                Width = 58
                Height = 13
                Caption = 'Fragmented'
              end
              object labFragmented: TLabel
                Left = 69
                Top = 74
                Width = 72
                Height = 13
                Caption = 'labFragmented'
              end
              object labDefragmented: TLabel
                Left = 164
                Top = 74
                Width = 73
                Height = 13
                Caption = 'Defragmented:'
              end
              object labDefragShow: TLabel
                Left = 248
                Top = 74
                Width = 33
                Height = 13
                Caption = 'Defrag'
              end
              object labProgressing: TLabel
                Left = 5
                Top = 98
                Width = 59
                Height = 13
                Caption = 'Progressing '
              end
              object labNowFile: TLabel
                Left = 70
                Top = 98
                Width = 51
                Height = 13
                Caption = 'labNowFile'
              end
              object pbAnalyze: TProgressBar
                Left = 6
                Top = 26
                Width = 374
                Height = 13
                Anchors = [akLeft, akTop, akRight]
                TabOrder = 0
              end
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'Ready'
            object img32Ready: TImage32
              Left = 0
              Top = 0
              Width = 374
              Height = 120
              Bitmap.ResamplerClassName = 'TNearestResampler'
              BitmapAlign = baTopLeft
              Scale = 1.000000000000000000
              ScaleMode = smNormal
              TabOrder = 0
              object labReady: TLabel
                Left = 16
                Top = 20
                Width = 31
                Height = 13
                Caption = 'Ready'
              end
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'Finish'
            object img32Defragend: TImage32
              Left = 0
              Top = 0
              Width = 381
              Height = 120
              Bitmap.ResamplerClassName = 'TNearestResampler'
              BitmapAlign = baTopLeft
              Scale = 1.000000000000000000
              ScaleMode = smNormal
              TabOrder = 0
              object labRunCompleted: TLabel
                Left = 24
                Top = 16
                Width = 92
                Height = 13
                Caption = 'Analyze Completed'
              end
              object labAnalyzed: TLabel
                Left = 24
                Top = 40
                Width = 48
                Height = 13
                Caption = 'Analyzed:'
              end
              object labAnalyzedFilesCount: TLabel
                Left = 88
                Top = 40
                Width = 108
                Height = 13
                BiDiMode = bdLeftToRight
                Caption = 'labAnalyzedFilesCount'
                ParentBiDiMode = False
              end
              object labFremented: TLabel
                Left = 24
                Top = 64
                Width = 56
                Height = 13
                Caption = 'Fremented:'
              end
              object labDefragFilesCount: TLabel
                Left = 88
                Top = 64
                Width = 97
                Height = 13
                Caption = 'labDefragFilesCount'
              end
              object labDefragMentFiles: TLabel
                Left = 173
                Top = 64
                Width = 73
                Height = 13
                Caption = 'Defragmented:'
              end
              object labDefragMentFiles2: TLabel
                Left = 250
                Top = 64
                Width = 78
                Height = 13
                Caption = 'DefragMentFiles'
              end
              object labDefragFiles: TLabel
                Left = 24
                Top = 88
                Width = 68
                Height = 13
                Caption = 'labDefragFiles'
              end
            end
          end
        end
      end
    end
    object tshFiles: TTabSheet
      Caption = 'tshFiles'
      ImageIndex = 1
      DesignSize = (
        556
        136)
      object lvFrageFiles: TListView
        Left = 1
        Top = 0
        Width = 551
        Height = 135
        Anchors = [akLeft, akRight, akBottom]
        Columns = <
          item
            Caption = 'FileName'
            Width = 150
          end
          item
            Caption = 'Fragement'
            Width = 70
          end
          item
            Caption = 'Size'
            Width = 72
          end
          item
            AutoSize = True
            Caption = 'Path'
          end>
        GridLines = True
        ReadOnly = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
    object tshOneHardFiles: TTabSheet
      Caption = 'tshOneHardFiles'
      ImageIndex = 2
      TabVisible = False
      DesignSize = (
        556
        136)
      object lvFiles: TListView
        Left = 2
        Top = -32
        Width = 405
        Height = 162
        Anchors = [akLeft, akRight, akBottom]
        Columns = <
          item
            Caption = 'FileName'
            Width = 150
          end
          item
            Caption = 'Fragement'
            Width = 70
          end
          item
            Caption = 'Size'
            Width = 70
          end
          item
            AutoSize = True
            Caption = 'Path'
          end>
        GridLines = True
        ReadOnly = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
  end
  object VDT: TVirtualDrawTree
    Left = 0
    Top = 0
    Width = 564
    Height = 97
    Align = alTop
    BorderStyle = bsNone
    BorderWidth = 2
    CheckImageKind = ckXP
    Colors.BorderColor = clWindowText
    Colors.HotColor = clBlack
    Colors.TreeLineColor = clBtnFace
    Constraints.MinWidth = 560
    Header.AutoSizeIndex = 0
    Header.DefaultHeight = 17
    Header.Font.Charset = DEFAULT_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -11
    Header.Font.Name = 'Tahoma'
    Header.Font.Style = []
    Header.Options = [hoColumnResize, hoDrag, hoShowImages, hoVisible, hoAutoSpring]
    Images = ilSystemImages
    IncrementalSearch = isAll
    PopupMenu = pmVDT
    TabOrder = 0
    TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toReadOnly]
    TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines]
    OnAfterItemPaint = VDTAfterItemPaint
    OnChecked = VDTChecked
    OnClick = VDTClick
    OnDrawNode = VDTDrawNode
    OnGetImageIndex = VDTGetImageIndex
    OnMouseDown = VDTMouseDown
    Columns = <
      item
        Position = 0
        Width = 120
        WideText = 'Driver'
      end
      item
        Alignment = taRightJustify
        Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus]
        Position = 1
        Width = 10
        WideText = 'File System'
      end
      item
        Alignment = taRightJustify
        Position = 2
        Width = 55
        WideText = 'Capacity'
      end
      item
        Alignment = taRightJustify
        Position = 3
        Width = 70
        WideText = 'Free Space'
      end
      item
        Alignment = taRightJustify
        Options = [coAllowClick, coDraggable, coEnabled, coParentColor, coResizable, coShowDropMark, coVisible]
        Position = 4
        Width = 75
        WideText = 'Fragmented'
      end
      item
        Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAutoSpring]
        Position = 5
        Width = 215
        WideText = 'Status'
      end>
  end
  object gbtnStart: TGUJButton
    Tag = 1
    Left = 0
    Top = 106
    Width = 114
    Height = 25
    Caption = 'Defrag Selected'
    TabOrder = 1
    OnClick = gbtnStartClick
    OnMouseMove = btnStopMouseMove
    DropDownMenu = pmStart
    Kind = bkDropDownButton
  end
  object btnDefagePause: TButton
    Left = 120
    Top = 106
    Width = 75
    Height = 25
    Action = actRunPause
    ParentShowHint = False
    ShowHint = False
    TabOrder = 2
    OnMouseMove = btnStopMouseMove
  end
  object btnStop: TButton
    Left = 201
    Top = 106
    Width = 75
    Height = 25
    Action = actRunStop
    TabOrder = 3
    OnMouseMove = btnStopMouseMove
  end
  object chbTurnOffPC: TCheckBox
    Left = 368
    Top = 109
    Width = 193
    Height = 21
    Anchors = [akTop, akRight]
    Caption = 'Turn Off PC after defragmentation'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnMouseMove = btnStopMouseMove
  end
  object mpHardFiles: TMapPanel
    Left = 0
    Top = 139
    Width = 555
    Height = 60
    Hint.Strings = (
      'Empty Diskspac'
      'Used Diskspace'
      'UnFragmented Files'
      'UnMovable Files'
      'Fragmented Files'
      'Busy Color'
      'MFT Reserved Zones'
      'MFT Reserved Zones')
    RectColor.FragmentedFiles = 54741
    ShowHint = True
    GeneralFuzzy = 40
    HighFuzzy = 80
    Anchors = [akLeft, akTop, akRight, akBottom]
    OnMouseMove = mpHardFilesMouseMove
  end
  object pmStart: TPopupMenu
    Left = 512
    Top = 28
    object mniAnalyze: TMenuItem
      Caption = 'Analyze Selected'
      OnClick = mniAnalyzeClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mniDefrag: TMenuItem
      Tag = 1
      Caption = 'Defrag Selected'
      OnClick = mniDefragClick
    end
    object mniOptimize: TMenuItem
      Tag = 2
      Caption = 'Optimize Selected'
      OnClick = mniOptimizeClick
    end
  end
  object actlst1: TActionList
    Left = 484
    Top = 28
    object actRunStop: TAction
      Caption = 'Stop'
      OnExecute = actRunStopExecute
    end
    object actAnalyze: TAction
      Caption = 'Analyze'
      OnExecute = actAnalyzeExecute
    end
    object actDefrag: TAction
      Caption = 'Defrag'
      OnExecute = actDefragExecute
    end
    object actOptimize: TAction
      Caption = 'Optimize'
      OnExecute = actOptimizeExecute
    end
    object actRunPause: TAction
      Caption = 'Pause'
      OnExecute = actRunPauseExecute
    end
    object actActionDAF: TAction
      Caption = 'Defrag a file...'
      OnExecute = actActionDAFExecute
    end
    object actActionDAFolder: TAction
      Caption = 'Defrag a folder...'
      OnExecute = actActionDAFolderExecute
    end
    object actStopOne: TAction
      Caption = 'Stop One'
      OnExecute = actStopOneExecute
    end
  end
  object ilSystemImages: TImageList
    Left = 723
    Top = 729
  end
  object dlgOpenFile: TOpenDialog
    Left = 755
    Top = 728
  end
  object tmrVDT: TTimer
    Enabled = False
    Interval = 50
    OnTimer = tmrVDTTimer
    Left = 456
    Top = 28
  end
  object pmVDT: TPopupMenu
    OnPopup = pmVDTPopup
    Left = 428
    Top = 28
    object mniSelectAll: TMenuItem
      Caption = 'Select All'
      OnClick = mniSelectAllClick
    end
    object mniNoneSelected: TMenuItem
      Caption = 'Select None'
      OnClick = mniNoneSelectedClick
    end
    object mniSelectInvert: TMenuItem
      Caption = 'Select Invert'
      OnClick = mniSelectInvertClick
    end
    object mniN1: TMenuItem
      Caption = '-'
    end
    object mniStopOne: TMenuItem
      Caption = 'Stop One'
      OnClick = mniStopOneClick
    end
    object mniStopAll: TMenuItem
      Caption = 'Stop All'
      OnClick = mniStopAllClick
    end
  end
  object tmrDAF: TTimer
    Enabled = False
    Interval = 50
    OnTimer = tmrDAFTimer
    Left = 400
    Top = 28
  end
end